home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 087 / tcommsys.arc / ADDLF.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-08-01  |  640 b   |  17 lines
  1.         5  'Public domain program to add linefeeds to downloaded files.
  2.         7  'Written by Larry E. Jordan, 1984
  3.         10 CLS:LOCATE 10,1,1
  4.         20 INPUT"Filename that needs linefeeds ";FILE$
  5.         30 PRINT
  6.         40 OPEN FILE$ FOR INPUT AS #1
  7.         50 OPEN "temp" FOR OUTPUT AS #2
  8.         60 IF EOF(1) THEN 90 ELSE LINE INPUT #1, ONELINE$
  9.         70 PRINT #2, ONELINE$
  10.         80 GOTO 60
  11.         90 CLOSE
  12.         91 KILL FILE$
  13.         92 NAME "temp" AS FILE$
  14.         95 PRINT
  15.         97 PRINT"File ";FILE$;" now has linefeeds after carriage returns."
  16.         98 PRINT:PRINT
  17.         100 END